#!/usr/bin/perl

for($i=0;$i<=30;$i++) {
	$out = `perl scripts/countMonotones.pl $i < reorderRules.10k.BestOrder.txt`;
	print $i."\t".$out;
}
